home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 109 (1989-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 109 (1989-08-15)(Ossowski, Stefan)(DE)(PD).adf / Includes / audiodev.asm < prev    next >
Assembly Source File  |  1989-02-20  |  1KB  |  58 lines
  1. _OpenDevice=-444
  2. _CloseDevice=-450
  3. _DoIO=-456
  4. allocate=32
  5. cmd_write=3
  6. pervol=12
  7.  
  8.        lea     audevnam(pc),a0
  9.        clr.l   d0
  10.        lea     ioaudio(pc),a1
  11.        clr.l   d1
  12.        move.l  4,a6
  13.        jsr     _OpenDevice(a6)
  14.  
  15.        lea     ioaudio(pc),a5
  16.        move.w  #allocate,$1c(a5)
  17.        move.l  #2,$18(a5)
  18.        move.l  #audata,$22(a5)
  19.        move.l  #330,$26(a5)
  20.        lea     ioaudio(pc),a1
  21.        move.l  4,a6
  22.        jsr     _DoIO(a6)
  23.  
  24.        tst.l   $18(a5)
  25.        beq     vend
  26.  
  27.        move.w  #991,$2a(a5)
  28.        move.w  #64,$2c(a5)
  29.        move.l  #330,$26(a5)
  30.        move.l  #audata,$22(a5)
  31.        move.w  #2,$2e(a5)
  32.        move.w  #cmd_write,$1c(a5)
  33.        lea     ioaudio(pc),a1
  34.        move.l  4,a6
  35.        jsr     _DoIO(a6)
  36.  
  37.        move.l  #1000000,d0
  38. wait   dbra    d0,wait
  39.  
  40. vend   lea     ioaudio(pc),a1
  41.        move.l  4,a6
  42.        jsr     _CloseDevice(a6)
  43.  
  44.        rts
  45.  
  46.  align.w
  47. stereo dc.b    1,0,0,0
  48.  align.w
  49. audata:
  50.        ibytes "includes/zarp"
  51.  align.w
  52. audevnam:
  53.        dc.b    "audio.device",0
  54.  align.w
  55. ioaudio:
  56.        ds.b    $44,0
  57.  end
  58.